2024-03-13

slide

ahahahhah

Prova

Prova 2

Una slide con testo piccolo

Prova 2.1

Una slide con testo colorato

Slide x

  • : logo unipd 1
  • : logo unipd 2
  • : logo unipd 3

Animazione

ciccio

pasticcio

ciccio 1

pasticcio 2

cicciopasticcio

colonne

colonna A

Hei Jude

Hello Word

colonna B

Hi

oppure

Testo fuori dalle colonne

Testo colonna sx con allinemento a sx

Testo colonna dx con allineamento a dx

oppure

Hi

Hey

METTERE CODICE NELLE SLIDES

## 
## Call:
## lm(formula = Temp ~ Month, data = airquality)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -20.5263  -6.2752   0.9121   6.2865  17.9121 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  58.2112     3.5191  16.541  < 2e-16 ***
## Month         2.8128     0.4933   5.703 6.03e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 8.614 on 151 degrees of freedom
## Multiple R-squared:  0.1772, Adjusted R-squared:  0.1717 
## F-statistic: 32.52 on 1 and 151 DF,  p-value: 6.026e-08

Scrollare cose su slides

shiny::shinyApp(
 ui = fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "dataset", # nome dell'input per il server
                  label = "Choose a dataset:", # nome dell'input per lo user
                  choices = c("rock", "pressure")) # opzioni
    ),

    mainPanel(
      plotOutput( #qui voglio un grafico 
        "graph"   
      )
    ) 
  )
),

server = function(input, output){
  output$graph <- renderPlot({
    if(input$dataset == "rock"){ 
      data <- rock
    } else {
      data <- pressure
    } 
    plot(data[, c(1:2)])
  })
}, 
options = list(height = 300)
)